home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Memory Tools.cpt / Memory Tools / card_8721.txt < prev    next >
Text File  |  1989-01-07  |  1KB  |  55 lines
  1. -- card: 8721 from stack: in
  2. -- bmap block id: 6075
  3. -- flags: 4000
  4. -- background id: 8605
  5. -- name: main
  6. ----- HyperTalk script -----
  7. on opencard
  8.   if the freesize of this stack > 10000 then
  9.     put "Compacting Stack - Please Wait..."
  10.     doMenu "Compact Stack"
  11.     hide msg
  12.   end if
  13. end opencard
  14.  
  15.  
  16.  
  17.  
  18. -- part 1 (button)
  19. -- low flags: 00
  20. -- high flags: 2000
  21. -- rect: left=476 top=315 right=342 bottom=512
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 1011 / 1011
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: New Button
  30. ----- HyperTalk script -----
  31. on mouseUp
  32.   go home
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 3 (button)
  38. -- low flags: 00
  39. -- high flags: 2000
  40. -- rect: left=432 top=318 right=340 bottom=455
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 1013 / 1013
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: New Button
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   visual effect dissolve
  52.   go next card
  53. end mouseUp
  54.  
  55.